function fprintStru(fid,stru)
% fprintStru Given a fid 
if isempty(fid) 
    fid=fopen('eraseme.m','w'); 
end 
names=fieldnames(stru); 
N=length(names); 
for ii=1:N 
    fldnm=names{ii}; 
    str=[fldnm,'=',char(stru.(fldnm)),'; \n']; 
    fprint(fid,str); 
end 
fclose(fid); 
